program pr;

var 
x: entero;


procedure IO (var i,j:integer, k:real);
var
z:integer;

Begin {Del procedure}
z:=7;

End;


Begin {Del program}

x:=5;
End.